﻿Imports PTIC_Util

Public Class VMGrilleCompteBilan
    Inherits VMGrilleCompte

    Protected Overrides Sub InitTitresTableContenu()
        TableContenuTampon = New DataTable
        TableContenuTampon.Columns.Add("ComptesHeaders", GetType(VMValeurCompte))
        TableContenuTampon.Rows.Add({New VMValeurCompte_TitreCompte With {.Valeur = "ACTIF"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre11 With {.Valeur = "Capital social non libéré"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre12 With {.Valeur = "Placements"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Resultat With {.Valeur = "Total"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_TitreCompte With {.Valeur = "PASSIF"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre1 With {.Valeur = "Capitaux propres"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre2 With {.Valeur = "Capital social ouverture"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre2 With {.Valeur = "Apport/Retrait de capitaux (solv)"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre2 With {.Valeur = "Résultat de l'exercice N-1"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre2 With {.Valeur = "Apport/Retrait de capitaux (res Neg)"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre1 With {.Valeur = "Passifs subordonnés"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre1 With {.Valeur = "Provisions techniques brutes"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Resultat With {.Valeur = "Total"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_TitreCompte With {.Valeur = "CAPITAUX ALLOUES"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre1 With {.Valeur = "MSR"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre2 With {.Valeur = "MSR (vie)"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre2 With {.Valeur = "MSR (non vie)"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre1 With {.Valeur = "Capitaux alloués"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre2 With {.Valeur = "Capitaux alloués vie"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre2 With {.Valeur = "Capitaux alloués non vie"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Resultat With {.Valeur = "Capitaux alloués"}})
        MAJTableContenu()
    End Sub
    Public Overrides Function ToString() As String
        Return "Bilan"
    End Function
    Protected Overrides Sub RefreshLignes(ByVal TValeurs As DataTable, Optional ByVal RaisePropChangedEvent As Boolean = False)
        For i = 0 To Comptes.NombreAnneesProjection - 1
            'Actif
            TValeurs.Rows(1)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.Bilan.Resultats.CapitalSocialNonLibere(i)}
            TValeurs.Rows(2)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.Bilan.Resultats.Placements(i)}
            TValeurs.Rows(3)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.Bilan.Resultats.TotalActif(i)}
            'Passif
            TValeurs.Rows(6)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.Bilan.Resultats.CapitalSocialOuv(i)}
            TValeurs.Rows(7)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.Bilan.Resultats.ApportSolvabilite(i)}
            TValeurs.Rows(8)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.Bilan.Resultats.ResultatN_1(i)}
            TValeurs.Rows(9)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.Bilan.Resultats.ApportResultatNeg(i)}
            TValeurs.Rows(10)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.Bilan.Resultats.PassifsSubordonnes(i)}
            TValeurs.Rows(11)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.Bilan.Resultats.ProvisionsTechniquesBrutes(i)}
            TValeurs.Rows(12)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.Bilan.Resultats.TotalPassif(i)}
            'Besoins en fonds propres
            TValeurs.Rows(15)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.CompteBesoinFondsPropres.Resultats.MSRvie(i)}
            TValeurs.Rows(16)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.CompteBesoinFondsPropres.Resultats.MSRnonVie(i)}
            TValeurs.Rows(18)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.CompteBesoinFondsPropres.Resultats.CapiAllouesVie(i)}
            TValeurs.Rows(19)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.CompteBesoinFondsPropres.Resultats.CapiAllouesNonVie(i)}
            TValeurs.Rows(20)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.CompteBesoinFondsPropres.Resultats.CapiAlloues(i)}
        Next
    End Sub

End Class
